home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
fibonac.zip
/
FIBONAC.DOC
< prev
next >
Wrap
Text File
|
1993-01-04
|
3KB
|
158 lines
**********************************************************************
You should have the following files in the arc file :
Fibonac.pas - Fibonacci source.
Fibonac.com - In case you do not have turbo pascal you can still
work with the idea of Fibonacci sequence.
Fibonac.doc - Fibonacci introduction.
**********************************************************************
This program was written to turn our attention
to the idea of fibonacci sequences. This program illustrates
that a recursive routine may call itself a number of times
with different arguments. In fact, as long as a recursive
routine uses only local variables, the programmer can use
the routine just as he uses any other and assume that it
performs its function and produces the desired value. You
need not worry about the underlying stacking mechanism.
RECURSION stack operation for fibonacci function :
N X Y Pass
6 * *
---------------- 1
5 * *
6 * *
---------------- 2
4 * *
5 * *
6 * *
---------------- 3
3 * *
4 * *
5 * *
6 * *
---------------- 4
2 * *
3 * *
4 * *
5 * *
6 * *
---------------- 5
1 * *
2 * *
3 * *
4 * *
5 * *
6 * *
---------------- 6
2 1 *
3 * *
4 * *
5 * *
6 * *
---------------- 7
0 * *
2 1 *
3 * *
4 * *
5 * *
6 * *
---------------- 8
0 * *
2 1 *
3 * *
4 * *
5 * *
6 * *
---------------- 9
2 1 0
3 * *
4 * *
5 * *
6 * *
---------------- 10
3 1 *
4 * *
5 * *
6 * *
---------------- 11
1 * *
3 1 *
4 * *
5 * *
6 * *
---------------- 12
3 1 1
4 * *
5 * *
6 * *
---------------- 13
4 2 *
5 * *
6 * *
---------------- 14
2 * *
4 2 *
5 * *
6 * *
---------------- 15
1 * *
2 * *
4 2 *
5 * *
6 * *
---------------- 16
0 * *
2 1 *
4 2 *
5 * *
6 * *
---------------- 17
2 1 0
4 2 *
5 * *
6 * *
---------------- 18
4 2 1
5 * *
6 * *
---------------- 19
5 3 *
6 * *
---------------- 20
3 * *
5 3 *
6 * *
---------------- 21
The rest of the stack operation is left for you
to finish as an excercise.